home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 8 / 64er_Magazin_Sonderheft_08_86-08_1986_Markt__Technik_de.d64 / dangerous pyram. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  18KB  |  440 lines
  1. 0 sw=1:po=23:sa=0:sc=0:tr=0:td=4:poke657,128:q=36879:goto1
  2. 1 rem  *****************************
  3. 2 rem  *     dangerous pyramid     *
  4. 3 rem  *     =================     *
  5. 4 rem  *****************************
  6. 5 rem  * ein grafik-adventure fuer *
  7. 6 rem  * den vc-20 und:            *
  8. 7 rem  * - 16 kram erweiterung     *
  9. 8 rem  * - datasette oder floppy   *
  10. 9 rem  *****************************
  11. 10 rem * programmiert  dez. 1984   *
  12. 11 rem *            by             *
  13. 12 rem *       stefan kaiser       *
  14. 13 rem *****************************
  15. 14 :
  16. 15 :
  17. 16 rem <<< speicherbedarf: ca. 19,5  kbyte >>>
  18. 17 :
  19. 18 :
  20. 19 printchr$(142):pokeq,8:print"[147]"tab(12)"[169]  [223]":print"[169]  [223][169][146][169] "
  21. 20 print" [169][146][169][223]  [223]":print"[223]  [223][169] [223] [169][146][169]"
  22. 21 print"  [146][169][223][223][146][223]  [146][169][169][146][169]":print"[223]  [146][169]   [223][223][169][223][169][146][169]"
  23. 22 print" [146][223][223][169][146][169][223][223][169][146][169]":print" [146] 1984  [223][169][223][169]"
  24. 23 printtab(6)"[156][164][164][164][164][164][164][164][164][164][157][157][157][157][157][157][157][157][157]presents:"
  25. 24 print" [223][169][223][223][161][169][223][172][162][172][223][169][223][146][161][161][169][223]":print"[161][161][188][190]  [146][161][172][172][188][146][169][161][161][146][161][161][162][146][162]"
  26. 25 print" [146][169][161][161][146][161][223][223][169][188][146][162][161][223][146][223][169][223][169][223][169]"
  27. 26 print"[158] [164][164] [164] [164][164][164]  [164]     [164][164][164]  [206] [206][214][206][214][206] [206][205][206][206][214][205]  [206][206] [206][205]"
  28. 27 print"  [223]  [165] [223][169] [223][223][146] [205][169][165][165] [223][146][206][165] [146][206][167] [146][206] [165][146][206][167] [146][206][167] [223][169] [165][165] [146] [165]";
  29. 28 print"  [146][169][223] [146][169][165] [146][169]  [167]    [165][165] [146] [165] [146][167]   [146][167][165][146][223][223] [167]    [165][165][146][206] [146][206]"
  30. 29 print" [146][206]   [146][206][165][146][206][167] [146][206][167] [146][223][169] [165][165] [146][169]"
  31. 30 pokeq,13:fora=1to100:next:geta$:ifa$<>""then32
  32. 31 pokeq,11:fora=1to100:next:goto30
  33. 32 poke198,0:pokeq,8
  34. 33 dimr$(51),g$(18),g(17),b$(16)
  35. 34 fora=1to51:readr$(a):next:fora=1to17:readg$(a),g(a):next
  36. 35 fora=1to4:readf$(a),f(a):next:fora=0to2:forb=1to4:readw(a,b):nextb,a
  37. 36 fora=1to16:readb$(a):next:s$="":printchr$(142)
  38. 37 gosub263
  39. 38 z=0:prints$"[144]ich sehe:":fora=1to17:ifg(a)=pothen40
  40. 39 next:goto41
  41. 40 printg$(a),:z=1:goto39
  42. 41 ifz=0thenprint"nichts"
  43. 42 fora=1to4:ifpo<>f(a)thennext:goto44
  44. 43 onagosub339,333,326,337
  45. 44 print
  46. 45 a$="":poke19,64:input">>                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][144]";a$:poke19,0
  47. 46 a1$=left$(a$,4)
  48. 47 ifa1$=b$(11)then61
  49. 48 ifa1$=b$(12)then67
  50. 49 ifa1$=b$(15)then219
  51. 50 ifa1$=b$(16)then242
  52. 51 fora=1tolen(a$):ifmid$(a$,a,1)<>" "thennext:goto59
  53. 52 a1$=left$(a$,a-1):a2$=right$(a$,len(a$)-a):a3$=left$(a1$,4):a4$=left$(a2$,4)
  54. 53 fora=1to16:ifb$(a)=a3$then55
  55. 54 next:goto56
  56. 55 onagoto69,114,87,121,143,167,186,200,218,225,61,67,253,248,219,242
  57. 56 gosub414:prints$"was ist das :"
  58. 57 print""a1$"n[146] ?"
  59. 58 print"dieser befehl ist mir nicht bekannt !!!":gosub410:goto37
  60. 59 gosub414:prints$"ein befehl besteht    immer aus 2[146] woertern"
  61. 60 gosub410:goto37
  62. 61 print"[147] das ist dein besitz: "
  63. 62 z=0:print:fora=1to17:ifg(a)=52thenprint"[144]"g$(a):z=1
  64. 63 next:ifz=0thenprint"[144]nichts"
  65. 64 print" das ist dein besitz: "
  66. 65 ify=1thenreturn
  67. 66 gosub410:goto37
  68. 67 print"[147]":gosub305:pokeq-12,40
  69. 68 prints$"[144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] auf wiedersehen .... [158]";:end
  70. 69 fora=1to4:ifmid$(r$(po),a,1)<>left$(a4$,1)thennext:goto77
  71. 70 ifpo=36andleft$(a4$,1)="s"thenw=4:goto399
  72. 71 ifpo=46andg(5)<>0andleft$(a4$,1)="s"thenw=4:goto399
  73. 72 ifpo=39andf(1)=39thenw=1:goto388
  74. 73 ifpo=50andf(2)=50thenw=2:goto388
  75. 74 ifpo=43andf(3)=43thenw=3:goto388
  76. 75 ifpo=1andleft$(a4$,1)<>"r"thenw=4:goto399
  77. 76 po=po+w(sw,a):goto37
  78. 77 ifleft$(a4$,1)=mid$(r$(po),6,1)thenifpo=1orpo=10orpo=11then80
  79. 78 ifleft$(a4$,1)=mid$(r$(po),5,1)then84
  80. 79 goto86
  81. 80 sw=sw-1:ifpo=1thenpo=8
  82. 81 ifpo=10thenpo=21
  83. 82 ifpo=11thenpo=27
  84. 83 goto37
  85. 84 gosub414:prints$"du kannst doch nicht  die waende hochgehen !"
  86. 85 gosub410:goto37
  87. 86 gosub414:prints$" diese richtung gibt   es hier nicht !!!":gosub410:goto37
  88. 87 fora=1to17:ifa4$<>left$(g$(a),4)thennext:goto89
  89. 88 goto93
  90. 89 forb=1to4:ifa4$<>left$(f$(b),4)thennext:goto96
  91. 90 ifpo=33andb=4then110
  92. 91 ifpo=f(b)thenw=b:goto388
  93. 92 goto96
  94. 93 ifa<4then106
  95. 94 ifa<6then109
  96. 95 ifg(a)=pothen98
  97. 96 gosub414:prints$"ich glaube, du hast   tomaten auf den augen.";
  98. 97 print"diesen gegenstand gibtes hier doch gar nicht";:gosub410:goto37
  99. 98 iftr>=td+sathensk=td+sa:gosub414:goto105
  100. 99 ifa=9andg(7)=52thenw=5:z=0:goto384
  101. 100 ifa=7andg(9)=52thenw=5:z=0:goto384
  102. 101 ifa=10thensa=2
  103. 102 ifa=15andph<>1then112
  104. 103 ifa=15andph=1then369
  105. 104 tr=tr+1:g(a)=52:goto61
  106. 105 prints$"du darfst doch nur   "sk"gegenstaende tragen.":gosub410:goto37
  107. 106 ifa=1andpo<>g(1)thena=3
  108. 107 ifpo<>g(a)then96
  109. 108 w=6:goto391
  110. 109 ifpo<>g(a)andpo<>f(b)then96
  111. 110 gosub414:prints$"aber das kann man dochnicht nehmen !!!"
  112. 111 gosub410:goto37
  113. 112 gosub414:prints$:print"die "g$(15)" kannst du   jetzt noch nicht"
  114. 113 print"nehmen !!!":gosub410:goto37
  115. 114 fora=6to17:ifleft$(g$(a),4)<>a4$thennext:goto119
  116. 115 ifa=13andg(a)=52andpo=46theng(a)=0:g(5)=0:tr=tr-1:goto37
  117. 116 ifa=10andg(a)=52thensa=0
  118. 117 ifg(a)=52theng(a)=po:tr=tr-1:goto37
  119. 118 gosub414:prints$"diesen gegenstand hastdu aber gar nicht !!":gosub410:goto37
  120. 119 gosub414:prints$"was ist denn das fuer ein zeug, das du da"
  121. 120 print"ablegen willst ???":gosub410:goto37
  122. 121 fora=6to17:ifa4$<>left$(g$(a),4)thennext:goto125
  123. 122 ifpo=39orpo=50orpo=43then127
  124. 123 ifg(a)=52theng(a)=po:tr=tr-1:goto37
  125. 124 goto118
  126. 125 gosub414:prints$"was ist denn das fuer ein zeug, das du da"
  127. 126 print"wegwerfen willst ???":gosub410:goto37
  128. 127 ifpo=39andf(1)=39andg(17)<>52thenw=1:goto388
  129. 128 ifpo=39andf(1)=39anda4$<>left$(g$(17),4)thenw=1:goto388
  130. 129 ifpo=50andf(2)=50andg(8)<>52thenw=2:goto388
  131. 130 ifpo=50andf(2)=50anda4$<>left$(g$(8),4)thenw=2:goto388
  132. 131 ifpo=43andf(3)=43andg(16)<>52thenw=3:goto388
  133. 132 ifpo=43andf(3)=43anda4$<>left$(g$(16),4)thenw=3:goto388
  134. 133 ifpo=39theng(17)=0:f(1)=0:tr=tr-1:goto136
  135. 134 ifpo=50theng(8)=0:f(2)=0:tr=tr-1:goto138
  136. 135 ifpo=43theng(16)=0:f(3)=0:tr=tr-1:goto140
  137. 136 gosub414:prints$"[156]das gleissende licht  des "g$(17)"en hat die"
  138. 137 print"gefaehrliche mumie zu deinem glueck ver-    nichtet !!!";:gosub410:goto37
  139. 138 gosub414:prints$"[156]der "g$(8)" steckt jetztim kopf der "f$(2)" ,";
  140. 139 print"d.h. sie ist nun tot !";:gosub410:goto37
  141. 140 gosub414:prints$"[156]du hast das "g$(16)" genau";
  142. 141 print"in den rachen der     "f$(3)" geworfen !"
  143. 142 print"sie ist elend zugrundegegangen ...";:gosub410:goto37
  144. 143 fora=1to17:ifleft$(g$(a),4)<>a4$thennext:goto199
  145. 144 ifa>3anda<>10then158
  146. 145 ifpo<>4then152
  147. 146 ifa=1andg(3)=4then161
  148. 147 ifa=1andsc<>1then163
  149. 148 ifa=1andsc=1theng(1)=0:g(3)=4
  150. 149 ifa=1andg(6)=0theng(6)=4
  151. 150 ifa<>1then160
  152. 151 goto37
  153. 152 ifpo=g(10)org(10)=52thenifa=10then165
  154. 153 ifpo<>39then157
  155. 154 iff(1)=0anda=2thenf(1)=39:goto37
  156. 155 iff(1)=39thenw=1:goto388
  157. 156 iff(1)=52anda=2then159
  158. 157 goto160
  159. 158 gosub414:prints$"das kannst du nicht   oeffnen !!!":gosub410:goto37
  160. 159 gosub414:prints$"der "g$(2)" istschon offen !!!":gosub410:goto37
  161. 160 gosub414:prints$"so etwas gibt es hier leider nicht !";:gosub410:goto37
  162. 161 gosub414:prints$"die "g$(1)" ist   doch schon offen, du  blindschleiche !";
  163. 162 gosub410:goto37
  164. 163 gosub414:prints$"du musst erst einmal  die truhe auf-"
  165. 164 print"schliessen !!!";:gosub410:goto37
  166. 165 gosub414:prints$"[156]juhu, du siehst etwas herrliches, naemlich:"
  167. 166 fora=1to5000:next:print"nichts[146] ...";:gosub410:goto37
  168. 167 ifg(12)<>52then182
  169. 168 ifa4$=left$(g$(7),4)then172
  170. 169 ifa4$=left$(g$(9),4)then176
  171. 170 ifa4$=left$(g$(12),4)then180
  172. 171 gosub414:prints$"so etwas kannst du    nicht anzuenden !":gosub410:goto37
  173. 172 ifg(7)=52thenw=5:goto384
  174. 173 ifg(7)=pothenz=1:g(7)=0:gosub384:goto37
  175. 174 ifg(7)=0andpo=33anddy=1thenz=1:gosub384:r$(33)="n.ow..":f(4)=0:goto37
  176. 175 goto184
  177. 176 ifpo=g(9)org(9)=52then178
  178. 177 goto184
  179. 178 gosub414:prints$"[156]die "g$(9)" brennt dochschon, du brauchst sie";
  180. 179 print"also nicht mehr anzu- zuenden.";:gosub410:goto37
  181. 180 gosub414:prints$"[156]das hast du aber fein gemacht ! das streich-";
  182. 181 print"holz brennt nun.":gosub410:goto37
  183. 182 gosub414:prints$"du hast doch gar      nichts, um diesen"
  184. 183 print"gegenstand anzuzuenden";:gosub410:goto37
  185. 184 gosub414:prints$"wo soll denn dieser   gegenstand hier"
  186. 185 print"liegen ???";:gosub410:goto37
  187. 186 ifpo<>4andpo<>33andpo<>38then194
  188. 187 ifpo=4anda4$=left$(g$(11),4)andg(11)=52thensc=1:tr=tr-1:g(11)=0:goto37
  189. 188 ifpo=33anda4$=left$(g$(7),4)andg(7)=52thendy=1:tr=tr-1:g(7)=0:goto37
  190. 189 ifpo=38anda4$=left$(g$(6),4)andg(6)=52thenph=1:tr=tr-1:g(6)=0:goto37
  191. 190 ifpo=4anda4$=left$(g$(11),4)andg(11)<>52then118
  192. 191 ifpo=33anda4$=left$(g$(7),4)andg(7)<>52then118
  193. 192 ifpo=38anda4$=left$(g$(6),4)andg(6)<>52then118
  194. 193 goto196
  195. 194 gosub414:prints$"es gibt hier nichts,  wohin du den gegen-"
  196. 195 print"stand hinstecken      koenntest !":gosub410:goto37
  197. 196 fora=6to17:ifa4$<>left$(g$(a),4)thennext:goto199
  198. 197 ifg(a)<>52then118
  199. 198 gosub414:prints$"das geht leider nicht.";:gosub410:goto37
  200. 199 gosub414:prints$"was ist denn das ???":gosub410:goto37
  201. 200 ifa4$<>left$(g$(14),4)anda4$<>left$(g$(16),4)then204
  202. 201 ifa4$=left$(g$(14),4)andg(14)=52then205
  203. 202 ifa4$=left$(g$(16),4)andg(16)=52thenw=7:goto391
  204. 203 goto118
  205. 204 gosub414:prints$"igitt ! hast du einen geschmack !!!":gosub410:goto37
  206. 205 print"[147]der "g$(14)" ver-":print"zaubert dich in einen zwerg. die konsequenz"
  207. 206 print"daraus ist, dass du   nur noch halb soviel  tragen kannst, wie"
  208. 207 print"vorher !!!":g(14)=0:tr=tr-1
  209. 208 if(tr-sa)>(td/2)then210
  210. 209 td=td/2:gosub410:goto37
  211. 210 gosub410:y=1:gosub61:y=0
  212. 211 print"du musst von deinem   besitz [156]1 gegen-"
  213. 212 print"stand abgeben !!      welchen ???"
  214. 213 print:poke19,64:input"";c$:poke19,0
  215. 214 forb=6to17:ifleft$(c$,4)<>left$(g$(b),4)thennext:goto217
  216. 215 ifg(b)=52thentr=tr-1:g(b)=0:goto209
  217. 216 print"[147]kann es vielleicht    sein, dass du das gar nicht besitzt ??":goto213
  218. 217 print"[147]was ist denn das ???  gib bitte etwas an,   das du auch besitzt !":goto213
  219. 218 gosub414:prints$"'"a2$"'":gosub410:goto37
  220. 219 pokeq,24:print"[147][144]spielstand abspeichern[146]"
  221. 220 print" press record[146] & play[146]         on tape"
  222. 221 wait37151,64,64:print"[145][145][145][156]     bitte warten                   "
  223. 222 open1,1,1,"daten":fora=1to17:print#1,g(a):next:fora=1to4:print#1,f(a):next
  224. 223 print#1,po:print#1,sw:print#1,tr:print#1,td:print#1,sa:print#1,sc:print#1,ph
  225. 224 print#1,dy:close1:print" => taste druecken <=":poke198,0:wait198,1:goto37
  226. 225 fora=1to4:ifmid$(r$(po),a,1)<>left$(a4$,1)thennext:goto232
  227. 226 ifpo=46andg(13)<>poandleft$(a4$,1)="s"thenw=4:goto399
  228. 227 ifpo=39andf(1)=pothenw=1:goto388
  229. 228 ifpo=50andf(2)=pothenw=2:goto388
  230. 229 ifpo=43andf(3)=pothenw=3:goto388
  231. 230 ifpo=1andleft$(a4$,1)<>"r"thenw=4:goto399
  232. 231 po=po+w(sw,a):goto37
  233. 232 ifleft$(a4$,1)=mid$(r$(po),6,1)thenifpo=1orpo=10orpo=11then80
  234. 233 ifleft$(a4$,1)=mid$(r$(po),5,1)then238
  235. 234 ifleft$(a4$,1)="h"andmid$(r$(po),5,1)<>"h"then236
  236. 235 goto86
  237. 236 pokeq,154:pokeq-1,15:pokeq-2,200:fora=1to1500:next:fora=15to0step-.1
  238. 237 pokeq-1,a:next:pokeq-2,0:w=9:goto391
  239. 238 sw=sw+1:ifpo=8thenpo=1
  240. 239 ifpo=21thenpo=10
  241. 240 ifpo=27thenpo=11
  242. 241 goto37
  243. 242 pokeq,30:print"[147] spielstand  einladen [146][144]"
  244. 243 print"  press play[146] on tape"
  245. 244 wait37151,64,64:print"[145][156]     bitte warten    "
  246. 245 open1,1,0,"daten":fora=1to17:input#1,g(a):next:fora=1to4:input#1,f(a):next
  247. 246 input#1,po:input#1,sw:input#1,tr:input#1,td:input#1,sa:input#1,sc:input#1,ph
  248. 247 input#1,dy:close1:print" => taste druecken <=":poke198,0:wait198,1:goto37
  249. 248 fora=1to6:ifmid$(r$(po),a,1)<>left$(a4$,1)thennext:goto86
  250. 249 ifa<>5then251
  251. 250 goto238
  252. 251 gosub414:prints$"in diese richtung     brauchst du nicht"
  253. 252 print"zu klettern, denn du  kannst dahin gehen !!";:gosub410:goto37
  254. 253 fora=1to3:ifa4$<>left$(g$(a),4)thennext:goto260
  255. 254 ifa=1andpo=4andg(1)=4then261
  256. 255 ifa=2andpo=39andf(1)=0then262
  257. 256 ifa=2andpo=39andf(1)=pothenw=1:goto388
  258. 257 ifa=1thena=3
  259. 258 ifa=3andpo=4theng(1)=4:g(3)=0:g(11)=4:sc=0:goto37
  260. 259 goto160
  261. 260 gosub414:prints$"das kannst du aber garnicht schliessen !!!":gosub410:goto37
  262. 261 gosub414:prints$"die "g$(1)" ist   schon zu !!!":gosub410:goto37
  263. 262 gosub414:prints$"der "g$(2)" ist     schon zu !!!":gosub410:goto37
  264. 263 ifpo=1then344
  265. 264 pokeq,25
  266. 265 print"[147][144][205]                    [206] [205]                  [206]   [205]                [206]"
  267. 266 print"   [205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206]"
  268. 267 fora=1to7:print"   [167]              [165]":next
  269. 268 print"   [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]"
  270. 269 print"  [206]                [205]   [206]                  [205] [206]                    [205]";
  271. 270 fora=1to22:print"=";:next
  272. 271 ifmid$(r$(po),1,1)<>"n"then275
  273. 272 print""tab(9)"[144][205]  [206][157][157][157][157] [146]  ";
  274. 273 print""tab(9)" [157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157] [146]   [157][157][157][157]";
  275. 274 print"[146][169]  [223][157][157][157][157]    "
  276. 275 ifmid$(r$(po),3,1)<>"o"then278
  277. 276 print""tab(20)"[144][206][165][157][157][157][169][146] [165][157][157][157] [146] [165][157][157][157] [146] [165][157][157][157] [146] [165][157][157][157] [146] [165][157][157][157]  [165]";
  278. 277 print"[157][157] [165]"
  279. 278 ifmid$(r$(po),4,1)<>"w"then280
  280. 279 print"[144][167][205][157][157][167] [223][146][157][157][157][167]  [146][157][157][157][167]  [146][157][157][157][167]  [146][157][157][157][167]  [146][157][157][157][167]  [157][157][157][167] "
  281. 280 ifmid$(r$(po),5,1)<>"h"then282
  282. 281 print""tab(7)"[144][164][164][164][164][164][164][164][164][157][157][157][157][157][157][157][157][223][223][146]    [169][146][169][157][157][157][157][157][157][157][223][165]  [167][146][169]"
  283. 282 ifmid$(r$(po),6,1)<>"r"then284
  284. 283 print""tab(8)"[144][169][165]  [167][223][157][157][157][157][157][157][157][169][146][169]    [223][223][146][157][157][157][157][157][157][157][157][163][163][163][163][163][163][163][163]"
  285. 284 fora=1to17:ifpo<>g(a)then288
  286. 285 onagosub310,317,313,322,324,320,289,290,291,293
  287. 286 ifa<10then288
  288. 287 ona-10gosub296,297,299,301,305,302,303
  289. 288 next:return
  290. 289 prints$tab(15)"[145][145][145]  [146][144][201]":return
  291. 290 prints$tab(5)"[145][145][145][156][166][166][220] [145][157][223][157][146][169][145][158] [163][183][184][146][162][185][175][164]":return
  292. 291 prints$tab(14)"[145][145][144][170][180][145][157][157][182][181][145][157][157][161][146][161][145][157][157][161][146][161][145][157][157][161][146][161][145][157][157][158][223][169][145][157][157]  [145][157][157][157][146][223]  [146][169]";
  293. 292 print"[145][157][157][157][157]    [145][157][157][157][157][169]  [223][145][157][157][157][223][169]":return
  294. 293 print""tab(12)"[144][185][175][164][175][185][157][157][157][157][157][223]   [146][169][157][157][157][157][223] [146][169][157][157][157][169][183][223][157][157][157][157][169]   [223][157][157][157][157][157][157][146][167]   ";
  295. 294 print"  [146][165][157][157][157][157][157][157][157][170]     [146][180][157][157][157][157][157][157][157][182]     [146][181][157][157][157][157][157][157][157][170]     [146][180][157][157][157][157][157][157][157][167]     [146][165]";
  296. 295 print"[157][157][157][157][157][157][223]   [146][169][157][157][157][157][163][183][163]":return
  297. 296 prints$"[145][145][145][145][145][145][144][162][162][162][158][179][144][215][158][221][145][157][157][157][213][192][201][157][157][157][202][192][203][157][157][157][157][157][157][144][171]":return
  298. 297 prints$tab(12)"[145][145][145][145][156][164][164][164][164][164][157][157][157][157][157][157][146][206]    [169][146][157][157][157][157][157][157]";
  299. 298 print"[158][166][166][166][166][166][156][169]":return
  300. 299 prints$tab(8)"[145][145][145][145][145][145][144][164][164][164][164][164][164][164][164][157][157][157][157][157][157][157][157][157][206]       [206][165][157][157][157][157][157][157][157][157][157][157][157][206]       [206][206]";
  301. 300 print"[157][157][157][157][157][157][157][157][157][157][207][163][163][163][163][163][163][208][206][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163][163][163]":return
  302. 301 prints$tab(4)"[145][145][145][145][145][145][145][176][174][157][157][157][213][203][202][201][157][157][157][157][221][172][187][221][157][157][157][157][221][188][190][221][157][157][157][157][173][192][192][189]":return
  303. 302 prints$tab(4)"[145][145][145][145][145][145][145][176][174][157][157][157][213][203][202][201][157][157][157][157][221][144][172][187][221][157][157][157][157][221][144][188][190][221][157][157][157][157][173][192][192][189]":return
  304. 303 prints$tab(12)"[145][145][145][145][145][145][145][145][158][164][157][157][206] [205][157][157][157][157][206][205][164][206][205][157][157][157][157][157][157][206][205][206] [205][206][205][157][157][157][157][157][157][157][165] [205] [206] [167][157][157][157][157][157][157][157]";
  305. 304 print"[205][164][206][163][205][164][206]":return
  306. 305 pokeq,120:print""tab(11)"[223][157][157][157][146][144][206][163] [146][144][163][205][157][157][157][157][157][157][169]     [223][157][157][157][157][157][157][157][157][144][146][206] [206]   [205] [205]";
  307. 306 print"[157][157][157][157][157][157][157][157][157]  [146][144] [209] [209]   [146][157][157][157][157][157][157][157][157][157][157][206] [167]  [221]  [144][165] [205][157][157][157][157][157][157][157][157][157][157][157]";
  308. 307 print"   [146]  [177]     [146][157][157][157][157][157][157][157][157][157][157][157][144][165] [167]     [165] [167][157][157][157][157][157][157][157][157][157][157][157]   [146] [172][162][187]    [146]";
  309. 308 print"[157][157][157][157][157][157][157][157][157][157][157][144][165]  [205][164][164][164][206]  [167][157][157][157][157][157][157][157][157][157][157][157][223]  [146][169] [144][163][146] [223]  [146][169][157][157][157][157][157][157][157][157][157][157]";
  310. 309 print"[144][205]   [144][163][146]   [206][157][157][157][157][157][157][157][157][205] [159][161][207][146]  [144][206][157][157][157][157][157][157][205][164][164][164][206]":return
  311. 310 print""tab(8)"[144][169]     [206][146][165][157][157][157][157][157][157][157][157][157][169]     [206][146][169][165][157][157][157][157][157][157][157][157][157][163][163][163][163][163][208][146][169] [165]";
  312. 311 print"[157][157][157][157][157][157][157][157][157][165] [156][167]  [144][167]  [165][157][157][157][157][157][157][157][157][157][165][156][164][213][201][156][164][144][167]  [207][157][157][157][157][157][157][157][157][157][165] [202][203][144] [167] [206]";
  313. 312 print"[157][157][157][157][157][157][157][157][165] [156][167][144]  [167][206][157][157][157][157][157][157][157][163][163][163][163][163][163]";:return
  314. 313 print"[144][206][205][157][157][157][206]  [205][157][157][157][157][223][146]   [205][157][157][157][157][157] [223][146]   [205][164][164][164][164][164][164][157][157][157][157][157][157][157][157][157][157][157][157][223] [223][146]  [206]";
  315. 314 print"[158][214][214][214][214][214][146][144][206][165][157][157][157][157][157][157][157][157][157][157][157][157][223] [223][146][206][158][214][214][214][214][214][146][144][206] [165][157][157][157][157][157][157][157][157][157][157][157][223][169][207][163][163][163][163][208]  [165]";
  316. 315 print"[157][157][157][157][157][157][157][157][157][165] [213][201] [144][167]  [207][157][157][157][157][157][157][157][157][157][165] [202][203][144] [167] [206][157][157][157][157][157][157][157][157][165]    [167][206][157][157][157][157][157][157][157][163][163][163][163][163][163]"
  317. 316 return
  318. 317 prints$tab(4)"[145][145][145][145][145][145][145][145][145][206][163][163][163][163][163][163][163][163][163][163][163][163][205][206]              [205][204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]";
  319. 318 print"[205][214][219][214][219][214][219][214][219][214][219][214][219][214][219][206][205][156][218][218][218][218][218][218][218][218][218][218][218][218][206][205][169][223][169][223][169][223][169][223][169][223][146][206]";
  320. 319 print"[169]          [223]":return
  321. 320 print""tab(14)"[213][192][192][201][157][157][157][157][221][213][201][221][157][157][157][157][202][203][161][182][146]";:fora=1to5:print"[157][157][221][221][157][157][161][182][146]";:next
  322. 321 print"[157][157][202][203]":return
  323. 322 prints$tab(7)"[145][145][145][145][144][169][165][184][163][183] [167][223][157][157][157][157][157][157][157][157][157][169] [212]    [200] [223][146]";
  324. 323 print"[157][157][157][157][157][157][157][157][157][157][183] [163][184] [183][183][184][163][163]":return
  325. 324 prints$tab(4)"[145][145][145][145][144][169][165]          [167][223][169] [165]          [167] [223]";
  326. 325 print"[169]  [165]          [167]  [223]":return
  327. 326 print""tab(7)"[185][185][157][157][157][157][157][169][146][158][209][223][169][146][158][209][223][169][157][157][157][157][157][157][157][157][157][157][157][157][157]      [169]  [146][169]";
  328. 327 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][169][146][169][144]vvvv[223][223][169] [146][169][157][157][157][157][157][157][157][157][157][157][157][157][169] [146]       [205][146][169][157][157][157][157][157][157][157][157][157][157][157]";
  329. 328 print"  [146]        [157][157][157][157][157][157][157][157][157][157]  [146]        [157][157][157][157][157][157][157][157][157][157]  [146]  [144][223][169][146]    [165][223][157][157][157][157][157][157][157][157][157][157][157][157]";
  330. 329 print"  [223][146] [144][167][165][146] [169]  [165] [223][157][157][157][157][157][157][157][157][157][157][157][157][157][146][223]  [223][144][167][165][169]  [146][169][223]  [223][146][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  331. 330 print"[223]      [146][169][223]  [157][157][157][157][157][157][157][157][157][157][157][157][146][223]    [146][169][169]  [157][157][157][157][157][157][157][157][157][157][157]    [169]  [146][169]";
  332. 331 print"[157][157][157][157][157][157][157][157][157][157][157]    [169]  [146][169]"spc(12)"[223]   [223][169]  [146][169]"spc(14)"[223]   [205] [146][169]"
  333. 332 prints$"[144]eine riesige kobra be-droht dich. was willstdu machen ???":return
  334. 333 prints$tab(8)"[145][145][145][145][145][145][145][144][213][192][195][195][192][201][157][157][157][157][157][157][221] [205][206] [144][221][157][157][157][157][157][157][157][157][157][213][192][192][201][213][177][177][201][213][192][192][201][157][157][157][157][157][157][157][157][157][157][157][157]";
  335. 334 print"[221][213][192][201][179][209][209][144][171][213][192][201][221][157][157][157][157][157][157][157][157][157][157][157][157][221][221] [221][221][176][174][144][221][221] [221][221][157][157][157][157][157][157][157][157][157][157][157][157][203][221] [206][202][192][192][203][205] [221][202]";
  336. 335 print"[157][157][157][157][157][157][157][157][157][157][157][203][167] [163][197][197][163] [165][202][144]eine   [188]gefaeh[190]rliche tarantel versperrt dir";
  337. 336 print"den weg ...":goto44
  338. 337 print""tab(10)"[144][213][201][157][157][202][203]":prints$"in der wand ist ein   loch, in das genau"
  339. 338 print"eine dynamitstange    passen wuerde (was    fuer ein zufall) ...";:return
  340. 339 print""tab(9)"[159][213][192][192][201][157][157][157][157][221][206][206][221][157][157][157][157][221][206][206][221][157][157][157][157][202][201][213][203][157][157][157][157][157][213][192][203][202][192][201][157][157][157][157][157][157][221][206][206][206][206][221]";
  341. 340 print"[157][157][157][157][157][157][221][206][206][206][206][221][157][157][157][157][157][157][221][221][206][206][221][221][157][157][157][157][157][157][221][221][206][206][221][221][157][157][157][157][157][157][202][203][206][206][202][203][157][157][157][157][157][221][213][201][221]";
  342. 341 print"[157][157][157][157][221][221][221][221][157][157][157][157][157][213][203][221][221][202][201][157][157][157][157][157][157][202][192][203][202][192][203]"
  343. 342 prints$"[144]du hast die moerder-  mumie auferweckt. sie will dich jetzt um-"
  344. 343 print"bringen !!!":return
  345. 344 pokeq,254:print"[147][158]"tab(12)"[192][192]        ";:printspc(16)"      [146]";
  346. 345 print" [159][164][175][185][162][185][175][164]      [158][206] [223]     [146] [159][163][183][184][162][146][184][183][163]     [158][206]   [223]    [146]";
  347. 346 print"[159]      [164][175][185][162][185][175][164]   [158][206] [223]   [146]      [159][163][183][184][162][146][184][183][163]  [158][206]      [159][164][175][185][162][185][175][164]            [158][221]"
  348. 347 print"[159][163][183][184][162][146][184][183][163]          [144][169][223]":printtab(16)"[169]  [223]":printtab(15)"[169]    [223]"
  349. 348 printtab(14)"[169]      [223][146][164][164][210][210][198][198][192][192][195][195][196][196][197][197][163][183][184][162][162][146][184][183][163]"
  350. 349 fora=1to22:print"=";:next:goto44
  351. 350 pokeq,254:print"[147][144]  [169] [223][169] [223]  [169] [223]  [223]       [165][167] [167] "
  352. 351 print"  [223] [223]    [165] [167] [167]  [167]   [165][167] [167] "
  353. 352 print"  [223] [146][169][223] [146][169]  [165][167]  [146][169]   "
  354. 353 print"du bist leider tod,"
  355. 354 onwgosub356,358,359,360,361,363,365,366,367
  356. 355 print"":goto380
  357. 356 print"weil dich die mumie   mit in die ewigen jagdgruende genommen hat !"
  358. 357 return
  359. 358 print"weil die tarantel dichgebissen hat !!!":return
  360. 359 print"weil die schlange dichverspeisst hat !!!":return
  361. 360 print"weil du abgestuerzt   bist !!!":return
  362. 361 print"weil du mit der fackeloder mit einem streichholz das dynamit ange-"
  363. 362 print"zuendet hast und dabeiexplodiert bist !!!":return
  364. 363 print"weil du dir an einem  gegenstand, den du    nehmen wolltest, einen"
  365. 364 print"bruch gehoben hast !!":return
  366. 365 print"weil du dich durch dastrinken des giftes    selbst vergiftet hast":return
  367. 366 print"weil du dich ge-      schnitten oder ver-   brannt hast !!!":return
  368. 367 print"weil du an die decke  gesprungen bist und   dir den schaedel ein-"
  369. 368 print"geschlagen hast !!!":return
  370. 369 pokeq,250:az=62:gosub370:goto373
  371. 370 fora=2to5:pokeq-a,0:next:pokeq-1,8
  372. 371 fora=1toaz:readt,l,r:pokeq-r,163+t:forb=0tol*175:nextb,a
  373. 372 fora=8to0step-.05:pokeq-1,a:next:fora=2to5:pokeq-a,0:next:return
  374. 373 pokeq,186:print"[147][144]  [164][164] [164][164]  [164] [164] [164] [164]   [164]   [206] [206][214] [206][205][206][206][214][206][214][206][214][206][205] [206][206][165]"
  375. 374 print"   [223]  [223][169] [223]  [169] [223][146][206][165] [146] [165]   [146][206]  [146][206]  [146][206]     [146] [165] [146] [165]"
  376. 375 print"      [146][169]       [146] [165] [146] [165]   [146][206]  [146][223][223]   [146][206]  [146][206] [146][206]  [146][206][165]"
  377. 376 print"   [146][169] [146][206]  [146][206] [146][223] [146][169][223] [146][169]  [163][146][206]"
  378. 377 print"du hast das adventure[146] tatsaechlich geloest, trotz den vielen"
  379. 378 print"schwierigkeiten und   fallen !!!!!"
  380. 379 print"[156]herzlichen            glueckwunsch"
  381. 380 print"willst du dich noch   einmal versuchen ???"
  382. 381 geta$:ifa$="j"thenrun
  383. 382 ifa$="n"thenpoke0,0:sys0
  384. 383 goto381
  385. 384 pokeq-2,140:fora=15to0step-.08:pokeq,41:pokeq-1,a:pokeq,121:next
  386. 385 ifz=1thenz=0:pokeq-2,0:return
  387. 386 fora=1to1000:next:pokeq-2,0
  388. 387 goto391
  389. 388 pokeq,154
  390. 389 forc=1to3:pokeq-2,150:ford=0to15step.3:pokeq-1,d:nextd:pokeq-2,0
  391. 390 pokeq,42:fore=1to100:nexte:pokeq,154:nextc:forf=1to1000:nextf
  392. 391 pokeq-1,15
  393. 392 a=225:b=4:gosub397:b=3:gosub397:b=1:gosub397:b=4:gosub397
  394. 393 a=229:b=3:gosub397:a=228:b=1:gosub397:b=3:gosub397
  395. 394 a=225:b=1:gosub397:b=3:gosub397:a=223:b=1:gosub397
  396. 395 a=225:b=6:gosub397
  397. 396 goto350
  398. 397 pokeq-5,a:pokeq-4,a:pokeq,24:forc=1tob*200:next:pokeq,25:pokeq-4,0
  399. 398 pokeq-5,0:forc=1to20:next:return
  400. 399 print"[147]":pokeq,40:pokeq-1,15:b=23:fora=220to130step-1:pokeq-3,a:b=b-.25
  401. 400 ifb=int(b)thengosub402
  402. 401 forc=1to5:nextc,a:goto403
  403. 402 pokeq-15,35-b:pokeq-14,82-int(b/2)*4:pokeq-13,b-1:pokeq-12,2*b:return
  404. 403 pokeq-15,12:pokeq-14,38:pokeq-13,22:pokeq-12,46:pokeq-3,0:pokeq-2,130
  405. 404 print""spc(8)"[144][164]    [164]"spc(15)"[167][167]   [167][167]"spc(16)"[205][205]  [206][206]"spc(17)"[213][195][195][201]"
  406. 405 printspc(9)"[221][209][209][144][221]"spc(18)"[221][168][168][144][221]"spc(18)"[202][198][198][203]"spc(17)"[206][206]  [205][205]"spc(15)"[167][167]   [167][167]"
  407. 406 printspc(8)"[163]    [163]":fora=15to0step-.1:pokeq-15,11:pokeq-1,a
  408. 407 forb=1to10:nextb:pokeq-15,12:forb=1to10:nextb,a:pokeq-2,0
  409. 408 fora=1to1500:next:goto391
  410. 409 end
  411. 410 poke198,0
  412. 411 poke4601,160:poke38393,2:fora=1to350:next
  413. 412 getc$:ifc$=""thenpoke4601,32:fora=1to350:next:goto411
  414. 413 poke4601,32:return
  415. 414 fora=4096+16*22to4096+23*22:pokea,32:next:return
  416. 415 data nsow.r,.s....,.s.w..,.so...,n..w..,nso...,ns....,...wh.,n.o...,n....r
  417. 416 data ...w.r,..ow..,.sow..,.so...,...w..,.sow..,n.o...,ns....,.s.w..,n.ow..
  418. 417 data .sowh.,nso...,n..w..,..ow..,n.ow..,n.o...,.s..h.,.s.w..,..o...,.s.w..
  419. 418 data .so...,n..w..,..ow..,..ow..,nso...,ns....,.s.w..,..o...,...w..,n.o...
  420. 419 data ns....,ns.w..,.so...,...w..,.so...,ns....,n.....,n..w..,..ow..,n.ow..
  421. 420 data n.o...
  422. 421 :
  423. 422 data schatztruhe,4,sarkophag,39,schatztruhe,0,kuhle,36,fallgrube,46,pharaonenstab
  424. 423 data 0,dynamit,5,dolch,12,fackel,14,sack,16,schluessel,22,streichhoelzer,25
  425. 424 data brett,29,zaubertrank,28,maske,38,gift,51,diamant,19
  426. 425 :
  427. 426 data mumie,0,tarantel,50,kobra,43,loch in wand,33
  428. 427 :
  429. 428 data-5,5,-1,1,-4,4,-1,1,-3,3,-1,1
  430. 429 :
  431. 430 data gehe,lege,nimm,wirf,oeff,zuen,stec,trin,sage,spri,besi,ende,schl,klet
  432. 431 data save,load
  433. 432 :
  434. 433 data32,2,3,0,0,4,46,2,3,-40,0,3,46,1,3,52,1,3,56,2,3,46,2,3,32,0,4,62,4,3,0,0,4
  435. 434 data56,3,3,-40,0,3,56,1,3,24,0,4,58,2,3,62,1,3,58,1,3,0,0,4,56,1,3,58,1,3,62,2,3
  436. 435 data32,0,4,52,1,3,46,1,3,52,1,3,56,1,3,52,2,3,-40,0,4,32,2,3,0,0,4,46,2,3,-40,0,3
  437. 436 data46,1,3,52,1,3,56,2,3,46,2,3,32,0,4,62,3,3,58,1,3,0,0,4,56,3,3,-40,0,3,56,1,3
  438. 437 data24,0,4,58,1.1,3,62,1.2,3,0,0,4,56,1.3,3,58,1.4,3,32,0,4,52,.2,3,56,.2,3
  439. 438 data52,.2,3,56,.2,3,52,.2,3,56,.2,3,52,3.2,3,46,1.6,3,-40,0,3,0,0,4,46,6,3
  440.